home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 70 / IOPROG_70.ISO / soft / Codice / Libro Allegato / testLibreria.bas < prev    next >
Encoding:
BASIC Source File  |  2003-05-02  |  708 b   |  25 lines
  1. Attribute VB_Name = "testLibreria"
  2. Sub testLibreria()
  3.     Dim libri As Libreria
  4.     Dim libro As Variant
  5.     Dim prog() As String
  6.     Dim stat() As String
  7.     Set libri = New Libreria
  8.     With libri
  9.         .init
  10.         .aggiungi "Programmare con le JSP", "Ivan Venuti", "Programmazione"
  11.         .aggiungi "Programmare il VBA", "Ivan Venuti e Marinella Lizza", "Programmazione"
  12.         .aggiungi "Cibi Esotici", "Ivan Venuti", "Cucina"
  13.         prog = .lista("Programmazione")
  14.         For Each libro In prog
  15.             MsgBox libro
  16.         Next
  17.         stat = .statistiche()
  18.         For Each libro In stat
  19.             MsgBox libro
  20.         Next
  21.         
  22.     End With
  23.         
  24. End Sub
  25.